﻿Imports Microsoft.VisualBasic

Namespace JPC.Medialibrary.UI

    Public Class AbcMenu
        Inherits List(Of ListItem)

        Sub New(ByVal EntityType As String)
            Dim i As ListItem

            i = New ListItem
            i.CommandName = "Get" + EntityType + "ByInitial"
            i.CommandArgument = 0
            i.Text = "0-9"
            Me.Add(i)

            For n = Asc("A") To Asc("Z")
                i = New ListItem
                i.CommandName = "Get" + EntityType + "ByInitial"
                i.CommandArgument = n
                i.Text = Chr(n)
                Me.Add(i)
            Next

        End Sub

    End Class

End Namespace
